$one = 1;
$two = 2;
$three = 3;
$four = 4;
$abcd = "abcd";
$pqrs = "pqrs";
$xyz = "xyz";

print $abcd . " another string\n"; # concantenate the two strings and print
print $abcd x $three . "\n";       # repeat the string abcd three times
print $one + $two . "\n";          # add the data in variables one and two. The numerical value is converted to string and concantenated with \n
                                   # I won't bother you with -, * and /
print $three % $two . "\n";        # modulo - returns the remainder of three divided by two
print $three ** $two . "\n";       # exponentiation - three raised to power two
print $one++ . "\n";               # post increment
print ++$one . "\n";               # pre increment
print $one-- . "\n";               # post decrement
print --$one . "\n";               # pre decrement
$one += $two;                      # $one = $one + $two
$one -= $two;                      # $one = $one - $two
